home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / DMTDEMOS / SETCRDRV.DEM < prev    next >
Text File  |  1994-07-02  |  378b  |  22 lines
  1. program SetCrDrv_sample;
  2.  
  3.  uses crt, DMT;
  4.  
  5.  var
  6.    DrvLetter : char;
  7.  
  8. begin
  9.   Color( 7, 0 );
  10.   clrscr;
  11.  
  12.   write( 'Select the new current drive ( A-Z ) [ :]');
  13.   gotoxy( wherex - 3, wherey );
  14.   DrvLetter := upcase( readkey );
  15.   writeln( DrvLetter );
  16.  
  17.   SetCrDrv( DrvLetter );    { Call SetCrDrv procedure }
  18.  
  19.   writeln;
  20.   writeln( 'Done...');
  21.   GetEnter;
  22. end.